home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 7 / Amoszine 7 (Disk 3 of 3).adf / ARCHIVES / Amos_Pro_Source.lha / pro_source_code / cycle_gadgets.amos / cycle_gadgets.amosSourceCode < prev   
AMOS Source Code  |  1980-07-24  |  381b  |  30 lines
  1. Rem Interface Cycle Gadget 
  2.  
  3. Resource Bank 16
  4.  
  5. Resource Screen Open 0,640,200,0
  6.  
  7. Flash Off : Curs Off : Cls 0
  8.  
  9. A$=A$+"BU 1,64,100,176,14,1,1,6;[BC 1,BP1+; UN 0,0,BP;][BR BP1+; IF BP6=;[BR 1;]]"
  10. A$=A$+"EX;"
  11.  
  12. Dialog Open 1,A$
  13.  
  14. D=Dialog Run(1)
  15.  
  16. Do 
  17.    
  18.    POSN=Rdialog(1,1)
  19.    
  20.    If POSN=5 Then QUIT
  21.    
  22.    Wait Vbl 
  23.    
  24. Loop 
  25.  
  26. Procedure QUIT
  27.    Wait 50
  28.    Default 
  29.    Edit 
  30. End Proc